In dem folgenden Beispiel wird veranschaulicht, wie Sie mit der Call-Anweisung die Steuerung an eine Sub-Prozedur, eine integrierte Funktion und eine Prozedur in einer Dynamic Link Library (DLL) ⁿbergeben k÷nnen.DLLs werden auf dem Macintosh nicht verwendet.
' Sub-Prozedur aufrufen.
Call AusgabeImTestfenster("Hallo Welt")
' ▄bergibt Steuerung an folgende Sub-Prozedur.
Sub AusgabeImTestfenster(Text)
Debug.Print Text ' Ausgabe direkt im Fenster.
End Sub
' Integrierte Funktion aufrufen. Der Rⁿckgabewert der Funktion wird
' nicht verarbeitet.
Call Shell(AnwendungsName, 1) ' AnwendungsName enthΣlt den Pfad
' der ausfⁿhrbaren Datei.
' Prozedur in einer Microsoft Windows-DLL aufrufen. Die Declare-
' Anweisung mu▀ in einem Klassenmodul das Attribut Private haben, in
' einem Standardmodul aber nicht.
Private Declare Sub MessageBeep Lib "User32" (ByVal N As Integer)
Sub DllAufrufen()
Call MessageBeep(0) ' Windows DLL-Prozedur aufrufen.
MessageBeep 0 ' Nochmal ohne Schlⁿsselwort Call.
End Sub
' Macintosh Code-Ressource aufrufen.
Declare Sub Warnmeldung Lib "Hd1:Warnung1" Alias "Warnung1" (ByVal N _
As Integer)
Sub CodeRessourceAufrufen()
Call Warnmeldung(0) ' Macintosh Code-Ressource aufrufen.
Warnmeldung 0 ' Nochmal ohne Schlⁿsselwort Call.
End Sub